home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1993 September / September 93.iso / Archives / Applications / Text / Text Editors / Alpha 5.31 Folder / Tcl / SystemCode / tcl.tcl < prev    next >
Encoding:
Text File  |  1993-01-25  |  883 b   |  38 lines  |  [TEXT/ALFA]
  1. #===========================================================================
  2. # Debug a Tcl procedure.
  3. #===========================================================================
  4.  
  5. proc traceTclProc {} {
  6.     set func [listpick -p {Func Name:} [lsort [info procs]]]
  7.     if {![string length $func]} return
  8.     set win [listpick -p {Output window:} [lsort [winNames]]]
  9.     if {![string length $win]} return
  10.     traceFunc on $func $win
  11.     markMenuItem Tcl traceTclProc on
  12. }
  13.  
  14. proc traceOff {} {
  15.     traceFunc off
  16.     markMenuItem Tcl traceTclProc off
  17. }
  18.  
  19.  
  20. proc setTclMode {} {
  21.     changeMode "Tcl"
  22.     uplevel #0 {
  23.         set elecLBrace 0
  24.         set elecRBrace 0
  25.         set electricSemi 0
  26.         set wordWrap 0
  27.         set funcTitle "Proc"
  28.         set funcExpr {^proc *([+-a-zA-Z0-9]+)}
  29.         set wordBreakPreface {[^a-zA-Z0-9_\$]}
  30.         set wordBreak {(\$)?[a-zA-Z0-9_]+}
  31.         set funcPar 1
  32.         set sortedIsDefault 1
  33.         set prefixString "# "
  34.     }
  35.     insertMenu Tcl
  36. }
  37.  
  38.